Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim αм As HPageBreak

    Cells.FormatConditions.Delete

    For Each αм In ActiveSheet.HPageBreaks
    
        With αм.Location.Offset(-1).Columns("A:I")
        
            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
            
            With .FormatConditions(1).Borders(xlBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
            
        End With
        
    Next
    
End Sub